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eTITL 4 VAXSASHP = VAX=-11 Instruction Emulator for ASHP 
-IDENT /V04-000/ 


Sin li nik a an i ad ae each aril 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY yi ACCORDANCE WITH THE TERMS OF SUCH port ae AND WITH THE 


cE. T ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
Paanetchete’ NO TITLE TO AND OWNERSHIP OF 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORATION NOT BE CONSTRUED AS AC OMNI TMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBI 
SOFTWARE ON EQUIPMENT WHICH | 


i 2 


ITY FOR THE USE OR > ergmneral OF ITS 


LITY 
S NOT SUPPLIED BY DIGITAL 


-RARRARAAARRAAASALASASLAALASALEARERARS SARS RR RARER SERS ARAR AR RARA RASA LARA SAAS SO 


: Racility: 


VAX-11 Instruction Emulator 


Abstract: 


The routine in this module emulates the VAX-11 packed decimal 
ASHP instruction. This procedure can be a part of an emulator 
ackage or can be called directly after the input parameters 

ave been loaded into the architectural registers. 


The input parameters to this routine are the registers that 
contain the intermediate instruction state. 


Environment: 


This routine runs at any access mode, at any IPL, and is AST 
reentrant. 


Author: 


Lawrence J. Kenah 


Creation Date 


oe Se Se Ge Ge Se Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Ge Ge Se Se Ge Ge Se 


SOOOooooooooooooooSo 
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Sooooooooooooeooo 


18 October 1983 


! Modified by: 
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0 é 
d090 3g 3 v01-003 LJK0042 Lawrence J. Kenah 26-Jul-1984 

00 60 ; Final cleanup pass for source kit. | 
B33 

44 o ; Add code to handie access violations. Perform minor cleanup. 

$0 65 : v01-001 LJK0008 Lawrence J. Kenah 18-0c t-1983 

444 ? $ The emulation code for ASHP was moved into a separate module. 


v01-002 LJK0024 Lawrence J. Kenah 20-F eb-1984 
| 
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9 . SUBTITLE Declarations 
: Include files: 
»NOCROSS ; No cross reference for these 
oe ENABLE SUPPRESSION 3; No symbol table entries either 
76 ASHP_DEF ; Bit fields in ASHP registers 
0 7 ADDP4_DEF ; Bit fields in ADDP4 -#gisters 
00 7 ADDP6_DEF ; Bit fields in ADDPé ,cgisters 
8 0 DIVP_BEF ; Bit fields in DIVP registers 
1 ULP_DEF ; Bit fields in MULP registers 
4 ¢ SUBPS_DEF ; Bit fields in SUBP4 registers 
0 ' SUBP6_DEF ; Bit fields in SUBP6 registers 
$00 5 CVTPS_DEF ; Bit fields in CVTPS registers 
944 $ CVTPT_DEF :; Bit fields in CVTPT registers 
4 CVTSP_DEF ; Bit fields in CVTSP registers 
944 CVTTP_DEF ; Bit fields in CVTTP registers 
0000 90 PACK_DEF ; Stack usage for reflecting exceptions 
Bnn8 4 STACR_DEF ; Stack usage for original exception 
$008 9 SPSLDEF ; Define bit fields in PSL 
44 oe SSRMDEF ; Define arithmetic trap codes 
0000 96 - DISABLE SUPPRESSION ; Turn on symbol table again 
+464 44 CROSS ; Cross reference is OK now 
itd 99 ; External declarations 
4 100 
00 101 -DISABLE GLOBAL 
000 196 
000 1 EXTERNAL - 
000 104 DECIMALSSTRIP_ZEROS_RO_R1 
000 105 
000 106 EXTERNAL - 
000 107 VAXSEXIT_EMULATOR,- 
000 108 VAXSADD_PACKED_BYTE_R6_R7,- 
000 109 VAXSREFCECT_FAOLT,- 
4 110 VAXSREFLECT_TRAP,=- 
090 : } 1 VAXSROPRAND 
0900 11$ 3; PSECT Declarations: 
00 112 DEFAULT DISPLACEMENT , WORD 
0000 09 17 -PSECT _VAXSCODE PIC, USR, CON, REL, LCL, SHR, EXE, RD, NOWRT, LONG 
80 119 BEGIN_MARK_POINT 
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- SUBTITLE VAXSASHP = Arithmetic Shift and Round Packed 


3¢ 
3 Functional Description: 


The source string yy by the cores length and source address 
operands is scaled by a power of 10 specified by the count operand. The 
destination str ng specified by the destination length and destination 
address operands is replaced by the result. 


A positive count operand effectively multiplies; a negative count 
effectively divides; and a zero count just moves and affects condition 
codes. When a negative count is specified, the result is rounded using 

the Round Operand. 


Input Parameters: 


RO<15:0> = srclen.rw Number of digits in source character string 

RO<235:16> = cnt.rb Shift count 

R1 = srcaddr.ab Address of input character string 

R2<15:0> = dstlen.rw Length in etgits of output decimal string 

R2<23:16> = round.rb Round operand used with negative shift count 

f = dstaddr.ab Address of destination packed decimal string 
Output Parameters: 

RO = 0 

Ri = Address of byte containing most significant digit of 


the source string 


R 
RS Address of oyee containing most significant digit of 
the destination string 


Condition Codes: 


N <= destination string LS 
Z <= destination string EG 
‘ = got taes overflow 


$0 
L 0 


Algorithm: 


The routine tries as much as possible to work with entire bytes. This 
makes the case of an odd shift count more difficult that of an even 
shift count. The first part of the routine reduces the case of an odd 
shift count to an equivalent operation with an even shift count. 


COOOOOCOOCOOOOOOoOoOoOoCOoOoooooOoSO 


SOSCSCSCOSOSOSOSOOOOSSOSSSSSOSOSOSOSOSSOOSOSSOSOOSOSOSOOSOSOSO 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


SOOSOSOSCOOSOSOSOSSOOSSOOOSOSOSOSOSOSOSOSOSOSOSOSOOCOOSOOSOOSOSOOS 


The instruction proceeds in several stages. In the first stage, after 
the input parameters have been verified and stored, the operation is 
broken up nto four cases, based on the sign and por ity (odd or even) 
of the shift count. These four cases are treated as follows, in order 
of increasing complexity. 


Oooo 


Case 1. Shift count is negative and even 


The actual shift operation can work with the source string in 
place. There is no need to move the source string to an 
intermediate work area. 


NNN AAA AAAAA AAI BE BWIA AAAI IPPON = 
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Be Se See Se Se Se Se Ge Ge Se Ge Ge Se Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Se Ge Se Ge Se 
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Case 2. Shift count is positive and even 


The source string is moved to an intermediate work area and the 
sign ‘‘digit’’ is cleared before the actual shift operation takes 
pie e. If the source is worked on in place, then a spurious sign 

git would be moved to the middle of the output Soetng instea 
of a zero. The alternative is to seep track of where, in the 
several special cases of shifting, the sign digit is looked at. 
oe cress ° use the work area to simplify the later stages of 

routine. 


Cases 3 and 4. Shift count is odd 


The case of an odd shift count is considerably more difficult 
than an even shift count, which is only slightly more complicated 
than MOVP. In the case of an even shift count, various digits 
remain in the same place (high nibble or low nibble) in a byte. 
For odd shift counts, nigh nibbles become low nibbles and vice 
versa. In addition, digits that were adjacent when viewing the 
decimal string as a string of bits proceeding from low address to 
high are now separated by a full byte. 


We proceed in two steps. The source string is first moved to a 
work area. The string is then shifted by one. This shift reduces 
the operation to one of the two even shift counts already 
mentioned, where the source to the shift operation is the 
modified source yy residing in the work area. The details of 
the shift-by-one are described below near the code that performs 
the actual shift. 


OOoOOSCOSCOCOSOSOOSOSOSOSOOOOOSOSOSOSOSOSOOOSOOOOSOOOOOoOO 
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SSsss 
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0 
0 
0 
0 
p 
0 
0 
0 
FOF OFOFO 8 ASHP_SHIFT_MASK = “XFOFOFOFO ; Mask used to shift string by one 
0 VAXSASHP: : 
OFFF 8F BB O PUSHR #*M<RO,R1,R2,R3,R4,R5,R6,R7,R8,R9I,R10,R11> ; Save the lot 
5B ot COO MOVPSL : Get initial PSL 
5B 04 00 04 FO 000 INSV #PSLSM_2,#0,44,R11 ; Set Z-bit, clear the rest 
$4 ESTABLISH_HANOCER - ; Store address of access 
008 ASHP ACCVIO 3; violation handler 
0010 ROPRAND_CHECR R : Insure that R2 LEQU 31 
baie ROPRAND_CHECK RO ; Insure that RO LEQU 31 
3S FS 0 ® MOVL SP,R8 3; Remember current top of stack 
SE 42 0036 SUBL _#20,SP : Allocate work area on stack 
9 MARK_POINT ASHP_BSBW_20 
FFD4* 30 Ss 9 BSBW DECIMALSSTRIP_ZEROS_RO_R1 ; Eliminate any high order zeros 
52 52 04 01 #4EF Q002C EXTZV #1,44,R2,R2 ; Convert output digit count to bytes 
52 06 0031 INCL ; Make room for sign as well 
50 650 4 9} EF 0033 EXTZ #1,44,R0,RO 3; Same for input strin 
56 1 8 C1 , 8 ADOL RO,R1,R6 ; Get address of sign digit. 
5 D6 C INCL 0 : Include byte containing sign 
E MARK_POINT ASHP_20 as 
56 66 FO 8F ? BICB3 #*B11110000,TR6) .R6 ; Extract sign digit 
? : Form sign of output string in R9 in preferred form (12 for ‘'+’' and 13 for ‘'="') 
| 
59 OC 9A be MOVZBL #12,R9 3; Assume that input sign is plus 


— | 
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46 5 CASE R6,LIMIT=#10,TYPE=B,<- ; Dispatch on sign 
46 336 rt :105> $ . 
4 1 te ;11=<- 
rh 8 40$,- 3 \ => + 
4 30$,- 3 13 =< 
rh 40 40$,- 3 14 => + 
4 41 40$,- 3 15 => + 
ose 548 . 
59 6 036 44 30S: INCL R9 ; Change preferred plus to minus 
5B 08 8 bee $2 BI1SB #PSLSM_N,R11 3; Set N-bit in saved PSwW 
058 “3 3; We now retrieve the shift count from the saved RO and perform the next set 
058 rk ; of steps based on the parity and sign of the shift count. Note that the 
bee rH ; round operand is ignored unless the shift count is strictly less than zero. 
54 02 A8 98 0058 51 40S: CVTBL ASHP_B_CNT(R8),R4 ; Extract sign-extended shift count 
D 19 OOSF 26 BLSS 50$ :; Branch if shift count negative 
5 Bs 061 5 CLRL R5 : Ignore ‘round’ for positive shift 
0151 0 0063 54 BSBW ASHP_COPY_SOURCE ; Move source string to work area 
11 54 €E8 0066 55 BLBS 3: Do shift by one for odd shift count 
78 oF 8A 0069 2§ BICB2 #*800001111,-(R8) :; Drop sign in saved source string 
# ol ; Go do the actual shift 
ee 0060 Bf BRB ASHP_SHIFT_POSITIVE Go d L shif 
006E 59 ; The ‘‘round’’ operand is important for negative shifts. If the shift count 
006E 60 ; is even, the source can be shifted directly into the destination. For odd 
006E 61 ; shift counts, the source must be moved into the work area on the stack and 
3; shifted by one before the rest of the shift operation takes place. 
943 ? hifted b bef h f the shif i k l 
00 EF 006 64 50$: EXTZV. #ASHP_V_ROUND,- 
04 007 65 #ASHP_S_ROUND,=- 
55 0A AB 0071 96 ASHP_6 ROUND (R8) ,RS ; Store ‘‘round’’ in a safe place 
54 54 34 0074 6 BLBC R4,ASHP_SHIFT_NEGATIVE ; Get right to it for even shift count 
5 sd 3; Move source string to work area 
013D 0 baat rt: BSBW ASHP_COPY_SOURCE M i k 
007A 70 ; For odd shift counts, the saved source string is shifted by one in place. 
QO7A 71 ; This is equivalent to a shift of -1 so the shift count (R4) is adjusted 
007A Le 3 sccorgingty. The least significant digit is moved to the place occupied by 
007A 73 ; the sign, the tens digit becomes the units digit, and so on. Because the 
8p ; work area was padded with zeros, this shift moves a zero into the high 
+ : order digit of a source string of even length. 
50 odd 0 60$: PUSHL RO ; We neea a scratch register to_count 
50 4 DECL RO 3; Want to nop {1..16} onto {0..3) 
-2,RQ, ; Convert a byte count to longwords 
50 50 FE 8F 8 ASHL #-2,R0,R0 C L d 
0 ; The following loop executes from one to four times such that the entire 


; the two pieces of the source are shifted (rotated) in epeqette directions. 
; Note also that the shift mask is applied to one string efore the shift and 
; to the other nt after the shift. (This points up the arbitrary choice 

; of shift mask. We just as well could have chosen the one's complement of 

; the shift mask and reversed the order of the shift and mask operations for 
; the two pieces of the source string.) 


70$: ROTL #-4,-(RB) RO ; Shift left one digit on 
BICL2 #ASHP_SHIFT_MASK,R6 ; Clear out old low order digits 


; source, taken as a collection of conguor ds. is shifted by one. Note that | 
t | 


Go6000 00 C0 Co Go C000 G0 0008 SIN SNS 

CWI NI WIWIWWAWAITIO DS > DS PS 

POPIPOPININIPIPINYININPINIPIPINPYNINYPYPY 

500000009 000009090909 08 SINS 

"OOOO wn" wise 
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VAXSASHP = Arithmetic Shift and Round Pa 
#ASHP “sult MASK ,-1(R8), R? 
#4, aa. 


ASHP_SHIFT_NEGATIVE 


Clear out =e order digits 
; Shift these digits right ene digit 
; Combine the two sets of digits 

; Keep going if more 


Restore source gy ? byte count 
Count the shift 

Join common code at the right place 
Drop through to ASHP_SHIFT_POSITIVE 


— 


; We only move ‘'srcien’’ source bytes. The rest of the destination string is 
: filled with zeros. 


MOVL RO,R7 
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an 0 «SUBTITLE ASHP_SHIFT = Perform Shift 
na 04 3; Functional Description: 
QOAA 06 ; This routine completes the work of the ASHP instruction in the case of 
QOAA 07 ; an even shift count. (If the original shift count was odd, the source 
QOAA 08 ; string has nt age been shifted one and the shift count adjusted by 
QOAA 09 ; one.) A portion (from none to all) of the source string is moved to 
QOAA 10 ; the destination string. Pieces of the destination string at either end 
JOAA 1 may be filled with zeros. If excess digits of the source are not 
OAA \¢ : moved, they must be tested for nonzero to determine the correct 
ao. 1? ; setting of the V-bit. 
QOAA 15 ; Input Parameters: 
OOAA 16 ; 
QOAA 17 3 RO<3:0> - Number of bytes in source string 
QOAA 18 ; Ri - Address of source string % 
QOAA 319 ; oo - Number of bytes in destination string 
QOAA 320 ; - Address of destination string an 
QOAA 321 ; R4<7:0> = Count operand (signed longword of digit count) 
OOAA $56 3 R5<3:0> = Round operand in case of negative shift 
QOOAA 323; R9<3:0> = Sign of source string in preferred form 
QOAA 324 ; ; 
QOAA 325 ; Implicit Input: 
QOAA 326 ; : : : 
chee $56 ; R4 is presumed (guaranteed) even on input to this routine 
OOAA 329 ; The top of the stack is assumed to contain a 20-byte work area (that 
OOAA 330 ; may or may not have been used). The space must be allocated for this 
QOAA 331 ; work area in all cases so that the exit code works correctly for all 
te 338 : cases without the need for lots of extra conditional code. 
QOAA 334 ; Output Parameters: 
QOAA 335 ; : 
QOAA 336 ; This routine conelotes the operation of VAXSASHP. See the routine 
Bpaa 330 3 neader for VAXSASHP for details on output registers and conditon codes. 
OOAA 339 ; Details: 
QOAA ret : 
QOAA 41; PUT SOME OF THE STUFF FROM ASHP.TXT HERE. 
QOAA $76 i- 
OOAA 34 
OOAA 44 - ENABLE LOCAL_BLOCK 
OAA 45 
OAA 346 ASHP_SHIFT POSITIVE: as 
2 C6 QOAA 347 DIV. = #2,,R4 ; Convert digit count to byte count 
4 (C3 QOAD 48 SUBL3 R4,R2,R7 ; Modify the destination count 
a pet 3 BLSS 30$ ; Branch if simply moving zeros 
4 00 0B 51 MOVL R4,R ; Number of zeros at low order end | 
ee 0B 26 108: SUBL3 RO,R7,R8B ; Are there any excess high order digits? 
6 19 008 2? BLSS 60$ ; No, excess is in source. 
55 
56 
57 
58 


50 00 Get number of bytes to actually move 


| 
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+ eB pet 23 BRB 100$ 3 «se. and go move them 
ta 61 ; The count argument is larger than the destination length. ALL of the source 
0C1 $¢ ; is checked for nonzero (overflow check). All of the destination is filled 
3 o7 : with zeros. 
56 25 DO 00C1 65 30$: MOVL Rg »R6 ; Number of low order zeros 
5 D4 00C4 66 CLR Rg ; The source string is untouched 
58 50 od0 00C6 67 MOVL RO,R8 ; Number of source bytes to check 
7 ot g0c9 68 BRB 80$ : Go do the actual work 
pete 70 ; If the count is negative then there is no need to fill in low order zeros 
0cB 71 ; (R6 is zero). The ollowing code is similar to the above cases, ei ier ing 
00cB ie : in the roles played by source Length (RO) and destination length (R2) an 
bere t ; also in the first loop (zero fill or overflow check) that executes. 
00CB 375 ASHP_SHIFT_NEGATIVE: 
56 04 O0CB 76 CLAL R6 3; No zero fill at low end of destination 
54 54 CE O0CD 77 MNEGL R4,R4 :; Get absolute value of count 
54 02 C6 O0D0 378 DIVL #2,R4 ; Convert digit count to byte count 
57 50 54 ¢3 0003 379 SUBL3 R4,RO,R7 3; Get modified source Length 
0€ 19 0007 380 BLSS = 708 : Branch if count is larger 
58 52 57 ¢3 00D9 $06 SUBL3 R7,R2,R8 ; Are there zeros at high end? 
20 «18 dopp 383 BGEQ 106 : Exit to zero fill loop if yes 
OODF 385 ; The modified source Length is larger than the destination length. Part 
Boor 368 ; of the source is moved. The rest is checked for nonzero. 
7.60 CU S2. ita $08 MOVL R2,R7 ; Only move ‘‘dstlen’’ bytes 
QOE2 390 ; In these cases, some digits in the source string will not be moved. If any 
BoES 33) ; of these digits is nonzero, then the V-bit must be set. 
58 58 CE 44 395 60$: MNEGL R8,R8 3; Number of bytes in source to check 
0B 7 Bes $00 BRB 80$ 3; Exit to overflow check loop 
QOE7 396 ; The count ac gunent is Larger than the source length. ALL of the destination 
BoeD 44 ; is filled with zeros. The source is ignored. 
57 D4 QOE7 399 70S: CLRL R7 ; No source bytes get moved — 
58 52 00 OQO0E9 400 MOVL R2,R8 ; ALL of the destination is filled 
11 11 OOEC 401 BRB 106$ : Join the zero fill loop 
BREE $06 
OEE 403 ;+ 
QOEE 404 ; At this point, the three separate counts have all been calculated. Each 
QOEE 405 ; loop is executed in turn, stepping through the source and destination 
BREE £36 3; strings, either alone or in step as appropriate. 
OOEE 408 : R6 - Number of low order digits to fill with zero F 
QOEE 409; R7 - Number of bytes to move intact from source to destination 
std 319 3 R8 - Number of excess digits in one or the other string. 
BoEE tig : If excess source digits, they must be tested for nonzero to 
REE oi7 : correctly set the V-bit. 
Sore 415 : If excess destination bytes, they must be filled with zero. 
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8 EE 218 3° 
EE 41 
BeEE 213 ; Test excess source digits for nonzero 
OEE 420 MARK _POINT ASHP_20 
81 95 O0E 421 75$ TSTB (R1)+ ; Is next byte nonzero 
05 12 OOF 4 ¢ BNEQ 90$ ; Handle overflow out of Line 
F9 58 FG 4 : ? 80$: SOBGEQ R8,75$ ; Otherwise, keep on Looking 
7” 68 of ? H BRB 120$ ; Join top of second loop 
58 96 88 sta 427 90$: BISB #PSLSM_V,R11 ; Set saved V-bit 
51 CO FA 428 ADDL R8,R1 ; Skip past rest of excess 
09 «11 OOFD 4 ; BRB 126$ ; Join top of second Loop 
OOFF 431 ; In this case, the excess digits are found in the destination string. They 
bere ? ¢ 3 must be filled with zero. 
58 D5 OOFF 434 100$: TSTL R8 ; Is there really something to do? 
05 =13 p10 $32 BEQL 120$ : Skip first loop if nothing 
0103 437 MARK _POINT ASHP_20 
83 94 0103 438 1108: CLRB (R3)+ ; Store another zero 
FB 58 «FS 8108 rt SOBGTR R8,110$ 3 «ee and keep on Looping 
0108 441 ; The next loop is where es interesting happens, namely that parts of 
0108 re 3 the source string are moved to the destination string. Note that the use of 
0108 443; oytes rather than digits in this operation makes the detection of nonzero 
0108 444 ; digits difficult because the presence of a nonzero digit in the place 
0108 445 ; occupied by the sign or in the high order nibble of an even Length output 
0108 446 ; string and nowhere else would cause the Z-bit to be incorrectly cleared. 
0108 447 ; For this reason, we ignore the Z-bit here and make a special pass over the 
0108 448 ; output string after all of the special cases have been dealt with. The 
0108 449 ; extra overhead of a second trip to memory is offset by the simplicity in 
8198 $30 3; other places in this routine. 
57 D5 0108 12g 120$: TSTL R7 ; Something to do here? 
06 13 Hy. +37 BEQL 140$ ; Skip this loop if nothing 
010C 455 MARK_POINT ASHP_20 
83 81 90 010C 456 130$: MOVB (R1)+,(R3)+ ; Move the next byte — 
FA 57 F5 pioe $2f SOBGTR R7,130$ 3 «ee and keep on Looping 
O12 459 ; The final loop occurs in some cases of positive shift count where the low 
Oi 289 : order digits of the destination must be filled with zeros. 
56 «5 b113 186 140$: TSTL R6 ; Something to do here? 
.  eE Bite ter BEQL 160$ ; Skip if loop count is zero 
116 465 MARK_POINT ASHP_20 
83 94 118 466 150$: CLR (R3)+ ; Store another zero 
FB 56 «=6F5) O11 467 SOBGTR R6,150$ 3 eee until we're done 
118 $08 
118 rs 3+ : 3 : : 
118 470 ; At this point, the destination string is complete except for the sign. 
Bie 4 ; If there is a round operand, that must be added to the destination string. 
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118 473; Ri - Address one byte beyond destination string 
118 474; R5 = Round operand 
118 475 ;- 
118 $78 
5E 14 CO Q11B 477 160$: ADDL #20,SP ; Deallocate work area 
52 O08 AE 04 1 a4 11E 128 EXTZV  #1,84 ASHP_W_DSTLEN(SP) ,R2 ; Get ys pes destination byte coun. 
7 g D 01246 47 MOVQ R2,-(SP) ; Save address and count for Z-bit loop 
9A 0127 480 MOVZBL R5,R8 ; Load round into carry register | 
2 4 " te BEQL 186$ 3; Skip next mess unless ‘'round’’ exists | 
> 3 wv 61 C 188 MOVL R3,R5 ; RS tracks the addition output 
564 91 f 48% CLRL =—s RB ; We only need one term and carry in sum 
0131 486 MARK_POINT ASHP_8 
57 73) «9A 0131 487 170$: MOVZBL -(R3),R7 ; Get next digit 
0134 488 MARK_POINT ASHP_BSBW_8 
FEC9" 30 0134 489 BSBW VAXSADD_PACKED_BYTE_R6_R7 ; Perform the addition 
58 D5 0137 490 TSTL R8 ; See if this add produced a carry | 
06 13 bie 491 BEQL 180$ 3; ALL done if no more carry 
F352 FG bie re SOBGEQ R2,170$ ; Back for the next byte | 
O13E 494 ; If we drop cnrougs the end of the loop, then the final add produces a carry. 
Bige $32 ; This must be reflected by setting the V-bit in the saved PSW. 
5B 402 ~= «(88 giz rh tA BISB #PSLSM_V,R11 ; Set the saved V-bit 
0141 499 ; ALL of the digits are now loaded into the destination string. The condition 
0141 500 ; codes, except for the Z-bit, have their correct settings. The sign must be 
0141 501 ; set, a check must be made for even digit count in the output string, and 
0141 206 3; the various special cases ses 1 zero, decimal overflow trap, ans so on) 
aiat 207 3; must be checked before completing the routine. 
0141 505 ; This entire routine worked with entire bytes, ignoring whether digit counts 
0141 506 ; were odd or even. An Voyeget iy in the upper nibble of an even input string 
0141 507 ; is ignored. A nonzero digit in the weer nibble of an even output string is 
tpe 44 3 not allowed but must be checked for. If one exists, it indicates overflow. 
10 AE E8 0141 510 1808: BLBS  <8+ASHP_W_DSTLEN>(SP),- | 
OF 0144 511 ; Skip next if output digit count is odd 
0145 218 MARK_POINT ASHP_8 
FO 8F 93 0145 51 BITB #*B11110000,- 
14 BE 0148 514 @<8+ASHP_A_DSTADDR>(SP) ; Is most significant digit nonzero? | 
08 13 O146A 15 BEQL 185$ ; Nothing to worry about if zero 
O14¢ 16 MARK_POINT ASHP_8 
FO 8F BA 014C 17 BICB #*B11110000,- . 
14 BE Q14F 18 @<8+ASHP_A_DSTADDR>(SP) ; Make the digit zero " 
58 02 88 313) a}? BISB #PSLSM_VURT1 3 ee. and set the overflow bit 
0154 1 ; We have not tested for nonzero digits in the output gtr ing. This test is 
154 ¢ ; made by making another pass over the ouptut string. Note that the low 
bie ? :; order digit is unconditionally checked. 
52 6€ 7D 0154 5 185$: MOVa (SP) ,R2 ; Get address and count 
157 $ MARK_POINT ASHP_8 
73. FO 8F 93 0157 BITB § 811110000, =CR5) ; Do not test sign in low order byte 
19 12 0158 8 BNEQ 187$ : Skip loop if nonzero 
064 #11 #O15D 529 BRB 186$ 3; Start at bottom of loop 
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15F 0 
15F 1 MARK _POINT ASHP_8 
R 95 O15F ¢ 183$:  TSTB =(R3) : Is next wrgner byte nonzero? 
1 12 0161 NEQ Ue ; Exit — f yes 
F9 5S2.FG 193 : 186$: SOBGEQ R2,183$ ; Keep looking for nonzero if more bytes 
166 8 ; The entire output string has been scanned and contains no nonzero 
166 ; otgitss The Z-bit retains its original setting, which is set. If the 
166 8 ; N-bit is also set, then the negative zero must be changed to positive 
166 9 ; zero (unless the V-bit is also set). Note that in the case of overflow, 
198 rt ; the N-bit is cleared but the output string retrins the minus sign. 
OF 5B 3 1 186 aX: BBC #PSL$V_N,R11,190$ ; Nebit is off already 
5B «(08 A Q16A 4 BICB #PSLSM_N,R11 : Turn off saved N-bit unconditionally 
08 5B C1 0 190 44 BBS #PSL$V_V,R11,190$ ; No fixup if V-bit is also set 
59 6s 0 0171 45 MOVB #12,R9 ; Use preferred plus as sign of output 
03 11 174 246 BRB 190§ i see and rejoin the exit code 
0176 rt 3; The tig ge instruction is the exit point for all of the nonzero byte 
b458 49 ; checks. Its direct effect is to clear the saved Z-bit. It also bypasses 
b45e 229 ; whatever other zero checks have not yet been performed. 
5B 04 BA 8178 236 187$: BICB #PSL$M_Z,R11 ; Clear saved Z-bit 
0179 554 ; The following code executes in all cases. It is the common exit path for 
b198 22? ; all of the ASHP routines when the count is even. 
52 8&€ 7D 0179 28 190$: mova (SP)+,R2 ; Get address of end of output string 
017C 558 MARK_POINT ASHP 9 
FF AS 04 O00 59 FO E43 $22 INSV R9,#0,84,-1(R3) ; Store sign that we have been saving 
B18s 29) - DISABLE LOCAL_BLOCK 
0182 385 ; Drop into VAXSDECIMAL_EXIT for final processing 


VAXSASHP - VAX-11 Ins 
vou-000 VAXSDECIMAL 
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«SUBTITLE VAXSDECIMAL_EXIT = Exit Path for Decimal Instructions 
exit path can only be used for instructions that conform to the following 
restrictions. 

1. Registers RO through R11 were saved on entry. 
2. The architecture requires that RO and R2 are zero on exit. 


3. ALL other registers that have instruction-specific values on exit are 
correctly stored in the appropriate locations on the stack. 


4. The saved PSW is contained in R11 


5. This instruction/routine should generate a decimal overflow trap if 
both the V-bit and the DV-bit are set on exit. 


| 
This is the common exit path for many of the routines in this module. This 


. ENABLE LOCAL_BLOCK 


VAXSDECIMAL_EXIT:: 
ciRC SP) ; RO must be zero on exit 
CLRL 8(SP) 3; R2 must also be zero 


u 
] 
5 
$ 
5 
0 
1 
‘ 
4 
5 
§ 
8 
] 
0 
1 
g 
4 
5 
6 
6—E D4 i 
4 BBS #PSL$V_V,R11,20$ See if exceptions are enabled 
1 
g 
4 
5 
6 
7 
8 
9 
0 
1 
5 
4 
5 
; 
8 
9 
0 
1 
g 
4 
5 


08 AE 04 
09 5B a EO 


~S 
~ 


3; Se 
108: BICPSW #<PSLSA_N!PSLSM_Z!PSLSM_V!PSL$M_C> ; Clear condition codes 
R11 3; Set appre riate condition codes 
#*M<RO,R1,R2,R3,R4,R5,R6,R7,R8,RI,RIO,RII> ; Restore 
RSB 3 ee. and return 


5B 
OFFF 8F BA 


If the V-bit is set and decimal traps are enabled (DV-bit is set). then 

a decimal overflow trap ic generated. Note that the DV-bit can be set in 

the current PSL or, if this routine was entered as the result of an emulated 
fon, in the saved PSL on the stack. Note that the final 

condition codes in the PSW have not yet been set. This means that all exit 

paths out of this code must set the condition codes to their correct values. 


VAXSEDITPC_OVERFLOW: : 

20$: 8 #PSL$V_DV,R11,30$ ; Report exception if current DV-bit set 
MOVAB VAXSEXIT_EMULATOR,RO =: Set up RO for PIC address comparison 
CMPL RO,<4#125(SP) 3; Is return PC EQLU VAXSEXIT_EMULATOR ? 
BNEQU ; No. Simply return V-bit set 
BBC #PSLSV_DV,<<4#<124+1>>+EXCEPTION_PSL>(SP) ,10$ 

; Only return V-bit if DV-bit is clear 


; Restore all of the saved registers, reset the condition codes, and drop 
; into DECIMAL_OVERFLOW. 


30$: BICPSW #<PSLSM_N!PSLSM_Z!PSLSM_V!PSL$M_C> ; Clear condition codes 
BISPSW 3; Set appropriate condition codes 
POPR #°M<RO,R1,R2,R3,R4,R5,R6,R7,R8,RI,RIO,R11> 


instruction except 


10 58 07 

50. 0000'CF 
30 AE 50 

E8 

—3 60 AE 07 
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OF 89 
58 
OFFF 8F BA 


et a ts ss 4 4 4 4 2 a bs 2b bs — 2 — > bs —) 5s 9 db 4 a tt a 


o o 
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18 17 34 
18 18 3; This code pete is enteree if the decimal string result is too large to 
18 19 ; fit into the output string and decimal overflow exceptions are enabled. 
18 Q ; The final state of the instruction, including the condition codes, is 
18 ? 1 ; entirely in place. 
18 6 : 3; Input Parameter: 
18 624 ; 
18 625 ; 
1B 6 8 3 
18 6 HY 
18 ° 8 ; ; 
18 3 O(SP) = SRMSK_DEC_OVF_T (Arithmetic trap code) 
1B 630 ; 4(SP) = Final state PSL 

0180 631; 8(SP) = Return PC 

pies 6 ¢ 3 
180 633 ; Implicit Output: 

0180 634 ; 

318) aH 3 Control passes through this code to VAXS$REFLECT_TRAP. 

0180 637 

Ht4 638 VAXSDECIMAL_OVERFLOW:: 

7E dC 0180 639 MOVPSL <=(SP) : Save final PSL on stack 
06 Bo 01B2 640 PUSHL #SRMS$K_DEC_OVF_T ; Store arithmetic trap code 
FE49" 31 p1B% oe! BRW VAXSREFLECT_TRAP 3; Report exception 
0187 og -DISABLE LOCAL_BLOCK 


(SP) = Return PC 
Output Parameters: 
| 
| 
| 
} 
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. «SUBTITLE ASHP_COPY_SOURCE = Copy Source String to Work Area 
> Functional Description: 


o— 
~< 
ws 
ow 
ce 
z2-7 
ma 


VAXSASHP = VAX 
vou=000 ASHP _ 


or 
o— 


For certain cases (three out of four), it is necessary to put the 
source string in a work area so that later portions of VAXSASHP can 
proceed in a straightforward manner. In one case (positive even shift 
count), the sign must be eliminated before the least significant 

arse of the source is moved to its appropriate place (not the least 
significant byte) in the destination string. For odd shift counts, 
the source string in the work area is shifted by one to reduce the 
complicated case of an odd shift count to an equivalent but simpler 
case with an even shift count. 


This routine moves the source tgs to a 20-byte work area already 
allocated on the stack. Note that the work area is zeroed by this 
routine so that, if the work area is used, it consists of either 
valid bytes from the source string or bytes containing zero. If the 
work area is not needed (shift count is even and not positive), the 
overhead of zeroing the work area is avoided. 


Input Parameters: 
RO - Byte count of source string (preserved) 
R1 = Address of most significant byte in source string 
R8& - Address one byte beyond end of work area (preserved) 


Output Parameters: 


o 
o 
> 
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OSS PP FNS OO FAN 
o 
0 


674 R1 = Address of most significant byte of source string in 
675 work area 
O76 
ort Side Effects: 
4s R6 and R7 are modified by this routine. 
681 
68¢ ASHP_COPY_SOURCE: 
FB AB 7C 6 cCra -8(R8) : Insure that the work area 
FO AB = 7C 684 CLRQ -16(R8) 3 ee. if entirely filled 
EC AB 4 685 CLRL -20(R8) 3 ese with zeros 
- TF te 6 $ ADDL3 RO,R1,R7 ; R7 points one byte beyond source 
51 58 v0 6 MOVL R8,R1 : RT will step through wor area 
56 50 00 688 MOVL RO,R6 ; Use R6 as the Loop counter 
690 MARK_POINT ASHP_BSBW_20 
71 77 ~=690 691 10$: MOVB -(R7) ,-(R1) :; Move the next source byte 
FA 56 «FS O36 SOBGTR R6,10$ ; Check for end of loop 
05 694 RSB ; Return with R1 properly loaded 


15 
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| 

| 

: Functional Description: | 
This routine receives control when a digit count larger than 31 is 
detected. The exception is architecturally defined as an abort so 
there is no need to store intermediate state. The VAXSASHP routine | 
saves all registers RO through R11 before performing the digit check. 
These registers must be restored before control is passed to 
VAXSROPRAND. 

Input Parameters: 
OO(SP) = Saved RO 

(SP) = Saved R11 

(SP) = Return PC from VAX$xxxxxx routine 

Output Parameters: 


OO(SP) - Offset in packed register array to delta PC byte 
O4(SP) = Return PC from VAX$xxxxxx routine 


Implicit Output: 


This routine passes control to VAX$ROPRAND where further 
exception processing takes place. 


Bete Ge Se Ge Se Ge Se Ge Ge Ge Se Ge Ge Ge Ge Gee Ge Se Se Ge Ge Ge Se Ge 


DECIMAL_ROPRAND: 
POPR 


at tt tt tt ot OD 
SNS NSN NSTI AAO 


RNONMONOMONONONONIND 2 S 2 BS SS SS BQO 0000 


WONAOUES WN $$ O ODNOA UE WN OOONO UE WO OOO 


OFFF 8F BA #°M<RO,R1,R2,R3,R4,R5,R6,R7,RB,RI,R10,R11> 
bp PUSHL #ASHP_B_DELTA_PC : Store offset to delta PC byte 
FE26" 31 BRWwW VAXSROPRAND 3 Pass control along 


| 
| 
| 
[eee 
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1pA 4 . SUBTITLE ASHP_ACCVIO = Reflect an Access Violation 
1DA «733; The general approach to handling access violations that occur while 
IDA 734; emulating the packed decimal instructions is described here. We take 
IDA 735; advantage of the fact that there are no architectural constraints on 
1DA f § 3 the way that access violations must be handled. In general, we back 
1DA ; the sneteust ten up to the beginning, to the point where initial state 
1DA 7 3 5 is stored in the set of general registers modified by each 
DA 739; instruction. Thus, the only step that is avoided when an instruction 
Hy 9 5 is restarted is operand evaluation. 
1DA 46 : Functional Description: 
1DA = 744 : This routine (or its counterpart in other decimal emulation modules) 
1DA 745; receives control when an access violation occurs while ee a ee 
1DA og ; within one of the VAX$xxxxxx routines that emulated a decimal string 
1DA 747 ; instruction. This routine determines whether the exception occurred 
1DA 8 ; while accessing a source or destination — or whether the access 
1DA 749; violation is peculiar to emulation, such as stack overflow. (This 
BBA £30 3 check is made based on the PC of the exception.) 
B1pA I3¢ ; If the PC is one that is recognized by this routine, then the state of 
1DA 753; the instruction (digit counts, string addresses, and the Like) are 
O1IDA 754; restored to a state where the instruction/routine can be restarted 
O1IDA 755; after (if) the cause for the exception is eliminated. Control is then 
O1DA £36 5 passed to a common routine that sets up the stack and the exception 
Q1IDA 757; parameters in such a way that the instruction or routine can restart 
Ripe £38 r transparently. 
O1DA 760: If the exception occurs at some unrecognized PC, then the exception is 
nipe 761 ; reflected to the user as an exception that occurred within the 
zine roe 3 emulator. 
O1DA 764: There are two exceptions that can occur that are not backed up to 
O1DA 765 ; appear as if they occurred at the site of the original emulated 
O1IDA 766; instruction. These exceptions will appear to the user as if they 
Bite for 3 occurred inside the emulator itself. 
O1DA 769: 1. If stack overflow occurs due to use of the stack by one of 
O1IDA 770; the routines, it is unlikely that this routine will even 
Q1IDA 771; execute because the code that transfers control here must 
O1DA ore ; first copy the parameters to the exception stack and that 
O1IDA 773; operation would fail. (The failure causes control to be 
1DA 774; transferred to VAS, where the stack expansion logic is 
H of? 3 invoked and the routine resumed transparently.) 
1DA 5n8 : 2. If assumptions about the address space change out from under 
1DA 9778 ; these routines (because an AST deleted a portion of the 
1DA 779; address space or a similar silly thing), the handling of the 
RIDA f ? : exception is UNPREDICTABLE. 
ipa f ¢ : Input Parameters: 
IDA f 4 : RO = Value of SP when exception occurred 
IDA 7 6 : R2 = scratch 
1DA 787 ; R5 = scratch 


PC at which exception occurred 


a 


= | 
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198 788 R10 = Address of this routine (no longer needed) 

1DA O(SP) - Value of RO when exception occurred 

1DA 4(SP) = Value of R1 when exception occurred 

1DA (SP) = Value of R2 when exception occurred 

1DA 12(SP) - Value of R35 when exception occurred 

Nt 16(SP) = Return PC in exception dispatcher in operating system 


~m 
Oo 
= 
wn 
wv 
~ 
a 


First lLongword of system-specific exception data 


xx(SP) = Last longword of system-specific exception data 


The address of the next longword is the position of the stack when 
the exception occurred. RO locates this address. 


RO => xx#4(SP) 


xx+<4*M> (SP) 


Instruction-specific data 

Optional instruction-specific data 

Optional instruction-specific data 

Return PC from VAX$xxxxxx routine (M is the number 
of instruction-specific lLongwords) 


Implicit Input: 


It is assumed that the contents of all registers coming into this 

routine are unchanged from their contents when the exception occurred. 

(For RO ome R3, this assumption applies to the saved register 

contents on the top of the stack. Any modification to these four 

iperscers ayet be made to their saved copies and not to the registers 
emselves. 


ptnetty. the macro BEGIN_MARK_POINT should have been invoked at the 
beginning of this module to define the symbols 


MODULE BASE 
PC_TABCE_BASE 
HANDLER_TABLE_BASE 
TABLE_STZE 


PC_TABLE_BASE is the base of a word array with one entry for each 
PC (relative to MODULE BASE) that can cause an access 
violation that is capable of being backed up. 


HANDLER_TABLE_BASE is the base of a corresponding word array with an 
oT that locates the context specific code to handle each 
of the recognized access violations. 


Output Parameters (Exit via JMP instruction): 


If the exception is recognized (that is, if the exception PC is 
associated with one of the mark points), control is passed to the 
context-specific routine that restores the instruction state to 
its initial state. 


These are the register values and stack state when the context 
specific code begins execution. 


FAD 29 ODA EWI $9 OD NAME WIN $$ OS OONAU EWN 0 OD NAME WN S(O OONAUE WO 
PETE TETETESETEOETEOS OEIC IEICE TEE IOI eee Ieee Ieee Tere rerererere rere rerererererererererereraererireeete 


000090909 09 09 69 09 Cd 0d 0d C9 09 Cd Cd C0 90 Cd 09 C9 C9 OD CD C9 G9 CD Cd CD Cd 09 Cd CD C9 CD CD CD C9 09 CD CD C9 CD O98 09 INI 
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RO = Value of SP when exception occurred 
Ri = scratch 
R2 = scratch 
R35 = scratch 
R10 = scratch 


RO => z22(SP) = Instruction-specific data begins here 
Implicit Output: 


The context-specific code accomplishes essentially the same thing for 
all of the emulated instructions. 


The register contents are restored to the values that ee had on 
entry to the VAX$xxxxxx routine. This causes the instruction to be 
backed up almost (but not quite) to its starting point. (The operand 
evaluation is not lost. The operands are saved in registers.) Any 
registers saved on entry are restored. 


Output Parameters (Exit via RSB instruction): 
If the exception PC occurred somewhere else (such as a stack access), 


the saved registers are restored and control is passed back to the 
host system with an RSB instruction. 


Se Ge Ge Ge Ge Ge Se Se Se Se Se Se Ge Gee Ge Se Ge Se Se Ge Se Ge Ge te Se 


ASHP_ACCVIO: 
CLR 
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PDE at at at a a kk a oh oh 


52 04 L R : Initialize the counter 
FE20 CF OF PUSHAB MODULE_BASE 3; Store base address of this module 
0244'CF OF PUSHAB MODULE END ; Store module end address 
0020 30 BSBW DECIMACSBOUNDS_ CHECK ; Check if PC is inside the module 
5E 04 C0 ADDL ; Discard end address 
51 BE (C2 SUBL2 (SP)+,R1 : Get PC relative to this base 
O000'CF42 51° BI 10$: CMPW R1,PC_TABLE_BASECR2) : Is this the right PC? 
07 «13 BEQL $ : Exit loop if true 
F452 OF Fe AOBLSS #TABLE_SIZE,R2,10$ ; Do the entire table 
:; If we drop through the dispatching based on PC, then the exception is not 
$2 3 one that we want to back up. We simply reflect the exception to the user. 
OF BA 87 20$: POPR #*M<RO,R1,R2,R3> 3; Restore saved registers 
05 38 RSB 3; Return to exception dispatcher 
90 ; The exception PC matched one of the entries in our PC table. R2 contains 
91 ; the index into both the PC table and the handler table. R1 has served 
3 ; its purpose and can be used as a scratch register. 
51 QO000°CF42 3C 94 30$: MOVZWL HANDLER Heat RASECRZ) Rt ; Get the offset to the handler 
FDF9 CF41 = 17 3 JMP MODULE _BASECRT ; Pass control to the handler 
37 ; In all of the instruction-specific routines, the state of the stack 
98 ; will be shown as it was when the exception occurred. ALl offsets will 
99 ; be pictured relative to RO. 
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- SUBTITLE DECIMALSBOUNDS_CHECK = Bounds Check on Exception PC 


; 
; 
2 
; 
: 
; 
| 
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3; Functional Decsription: 

This routine is called by the exception handlers for the various 
decimal string instruction emulation routines to perform a bounds 
check on the exception PC. The real reason for performing this check | 
is that certain exceptions can occur in subroutines that are outside a 

given module. In this case, it is not the exception PC but rather the 

return PC on the top of the stack that determines the context of the 
exception (and therefore, the code necessary to back up the 

instruction state). 


The basic mode of se is that, if the exception PC is outside 
the current module boundarise, then R1 (the exception PC) is replaced 
by the return PC (presumed pointed to by RO). 

Input Parameters: 


RO - Top of stack when exception occurred 
Ri = PC at time of exception 


| 

| 

(RO) = Return PC from subroutine in which access violation occurred | 

QO(SP) = Return PC from caller of this routine 

04(SP) = End address of module 

O8(SP) = Start address of module 

Output Parameters: | 

| 

If the exception PC is outside the bounds of the module (as defined by | 
the two longwords on the stack, then R1 is pop, sees by the ‘return 

PC’', the contents of the longword located by RO. 

i 

| 

| 


If the exception PC is inside the module, nothing is changed by the 
execution of this module. 


Assumptions: 


There are two assumptions that must hold for these subroutines 
in which access violations can occur. 


They must not use the stack. This keeps the return PC on the 
top of the stack, located by RO. 


They must be called with a BSBW instruction, This causes the 
return PC to be exactly three bytes beyond instruction that 
transferred control to the subroutine. 


DECIMALSBOUNDS_CHECK:: 
CMPL 
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04 AE 51 O01 R1,4(SP) ; Beyond upper end? 
07 ~«#1€E BGEQU§ 1 ; Branch if out of bounds 
08 AE 51 01 CMPL R1,8(SP) ; Within lower Limit? 
01 «1F BLSSU 108 : Branch if out of bounds | 
05 RSB ; Return with R1 intact 


ion Emulator f Bie 1 4 01:31:43 YAX/VMS M v04- P 1 | 
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; R1 is out of bounds. Replace it with the return PC from the rout ioe that 
3; was executing when the access violation occurred. Note that the PC is 

0 : backed up over the BSBW instruction because the PC offset that appears in 
1 ; the rt. t BLE will be the PC of the BSBW instruction and not the PC of the 
3 next instruction. 


964 10$: SUBL3 #3,(RO),R1 ; Get new ‘exception’ PC 
965 RSB 
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truction Emulator for ASHP 16-SEP-1984 01:31:43 VAX/VMS Macro V04-00 Page $9 
Context-Spec ( 


Access Violation Handli 5-SEP=-1984 00:44:46 (CEMULAT.SRCJVAXASHP.MAR; 1 1) 
- SUBTITLE Context-Specific Access Violation Handling for VAXS$ASHP 
Functional Description: 


Oo 

— 

~o 
an 


The only difference anene the various entry points is the number of 
Longwords on the stack. RO is advanced peyene these longwords to point 
to the list of saved registers. These registers are then restored, 
effectively backing the routine up to its initial state. 

Input Parameters: 
RO - Address of top of stack when access violation occurred 
See specific entry points for details 

Output Parameters: 


See input parameter List for VAXSDECIMAL_ACCVIO 
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+ 
ASHP_BSBW_20 
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WOW COCDCOCOOCO COCO OOOO INI NIN NOOO = 
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; An access violation occurred in subroutine STRIP_ZEROS or in subroutine 
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; : 
319 $90 | , : 
2 991 ; ASHP_COPY_SOURCE while the source string was uote copied to the work space 
2 3 on the stack. In addition to the five Longwords of work space on the stack, 
§ oer 3; this routine has an additional longword, the return PC, on the stack. 
2 995 ; 00(RO) = Return PC in mainline of VAXSASHP 
2 996 ; 04(RO) - First longword of scratch space 
2 997 ; etc. 
2 998 ;- 
2 999 
219 1000 ASHP_BSBW_20: 
50 04 CO 3 1991 ABDL #4,R0 ; Skip over return PC and drop into ... 
2 1908 3 
§ ie ; ASHP_20 
2 1399 : There are five Longwords of workspace on the stack for this entry point. 
‘ 1008 : 00(RO) - First longword of scratch space 
Sie 100 
$ 1011 : 16(RO) - Fifth Longword of scratch space 
2 1916 ; 20(SP) = Saved RO 
§ 1013 ; 24(SP) = Saved R1 
1014 ; etc. 
1015 ;- 
1016 
pit ASHP_20: ; 
50 14 C0 1018 ADDL #20,R0 ; Discard scratch space on stack | 
06 «+11 1913 BRB VAX$DECIMAL_ACCVIO 3; Join common code to restore registers 
1021 ;+ 
: ¢ ; ASHP_BSBW_8 
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v04-000 Context=Specific Access Violation HandlLi ~$Fb= 138 She ite EMULAT.SRCJVAXASHP.MAR; 1 . (11) 
An access violation occurred in subroutine ADD_PACKED_BYTE rite the round 
operand was being prepegesee. In addition to the saved R2/R3 pair of 
Longwords on the stack, this routine has an additional longword, the return 


PC, on the stack. 


00(RO) = Return PC in mainline of VAX$ASHP 
04(RO) = Saved intermediate value of R2 


> Se Se Ge Se Se Se Be Ge te 


etc. 
SHP_BSBW_8: 
50 04 CO ABOL #4,R0 ; Skip over return PC and drop into ... 
= i+ 
; ASHP_8 
: se is a saved register pair (two longwords) on the stack for these entry 
3 points. 
; QO(RO) = Saved intermediate value of R2 
; 04(RO) = Saved intermediate value of R3 
: O8(SP) = Saved RO 
: 12(SP) = Saved R1 
3 16(SP) = Saved R 
3 20(SP) = Saved R 
: etc. 
ASHP _8 
50 08 co ADDL #8,RO ; Discard saved register pair 
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; Drop into VAXSDECIMAL_ACCVIO to restore saved registers 


+ 
ASHP _0 


The stack is empty. This label is merely a synonym for VAX$DECIMAL_ACCVIO 
because there is no context-specific work to do. 
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O0(SP) = Saved RO 
04(SP) = Saved R1 
O8(SP) = Saved R 

12(SP) = Saved R 

etc. 


ASHP_0: 
; Drop into VAX$DECIMAL_ACCVIO to restore saved registers 
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= Common Access Viola 5-SEP-1984 00:44:46 CEMULAT.SRCJVAXASHP.MAR; 1 (72) | 

- SUBTITLE VAXSDECIMAL_ACCVIO = Common Access Violation Handling | 
Functional Description: 


This code is the final access violation processing for those 
exceptions that have two things in common. 


The instruction/routine is to be backed up to its initial state. 
; ALL registers from RO to R11 were saved on entry to VAXS$Sxxxxxx. 
; Input Parameters: 

00(RO) = Saved RO on entry to VAXS$xxxxxx 
04(RO) = Saved R1 

- Saved R11 on entry to VAX$xxxxxx 

- Return PC from VAX$xxxxxx routine 
- Saved RO (restored by VAXS$HANDLER) 
- Saved R1 

- Saved R 

- Saved R 

; Output Parameters: 


RO is advanced over saved register array as the registers are restored. 
RO ends up pointing at the return PC. 


R1 contains the value of delta PC for all of the routines that 
yee Fes common code path. The FPD and ACCVIO bits are both set 
n 


0O(RO) = Return PC from VAX$xxxxxx routine 
OO(SP) = Value of RO on entry to VAX$xxxxxx 
04(SP) = Value of R1 on entry to VAX$xxxxxx 
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Value of R2 on entry to VAXSxxxxxx 


12(SP) = Value of R35 on entry to VAXSxxxxxx 


R4 through R11 are restored to their values on entry to VAX$xxxxxx. 
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| 
VAXSDECIMAL_ACCVIO:: 

6€ 80 7D MOVa (RO) +, PACK_L_SAVED_RO(SP) ; “Restore’’ RO and R1 
08 AE 80 7D MOVa (RO)+,PACK_L_SAVED_R2(SP) ; ‘Restore’ R2 and R35 
54 80 7D mMOVa (RO)+,R4 ; Really restore R4 and R5 
56 80 7D MOVQ oe tee. and R6 and R7 
58 380 7D mova (RO)+,R 3 ee. and R8 and R8 
5A 80 7D mova (RO)+,R10 3... and R10 and R11 
ASSUME ADDP4_B_DELTA_PC EQ ASHP_B_DELTA_PC 
ASSUME ADDPo 8 DEL TAPE EQ ASHP_B_DELTA_PC 
ASSUME SUBP4"B"DELTA_PC EQ ASHP_B_DELTA_PC 

ASSUME SUBP6"B-DELTA PC EQ ASHP-B-DELTA PC 
ASSUME MULP_B_BDELTA_PC EQ ASHP_B_BELTA_PC 


VAXSASHP = VAX-11 Instruction Emulator to atap 19° ser =1386 O42) 282 AX/VMS Macro v04-00 
v04- VAXSDECIMAL_ACCVIO = Common Access Viola 4 00:44:46 (CEMULAT.S REIVA AXASHP .MAR; 1 
. 1} 1 ASSUME DIVP_B_DELTA_PC EQ ASHP_B_DELTA_PC 
A 11 : ASSUME cvies -B_DELTA_PC Fd Ase -B_DELTA_PC 
A 1134 ASSUME CVTPT-B"DELTA_PC EQ ASHP_B_DELTA_PC 
A 1135 ASSUME CVTSP_B-DELTA_PC EQ ASHP_B_DELTA_PC 
n 1} § ASSUME CVTTP_B-DELTA_PC EQ ASHP_B_DELTA_PC 
51 00000303 8F »DO0 A 11 8 MOVL pore -B_DELTA_PC!= 3; Indicate offset oor Dns PC 
41 11 PACK_M_ “FPDI- 3; FPD bit should be 
0241 1140 PACK “M-ACCVIO>,R1 3; This is an access sTotetton 
FDBC' 31 0 | 113) BRw WAXSREFLECT_FAULT ; Continue exception handling 
6 44 1128 END_MARK_POINT 
0244 1144 
0244 1145 END 
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ro 
JV 
VAX$RE T eeeeneee 8X 08 
0 


FLECT_FAUL 
02 VAXSREFLECT_TRAP eeeneeee =X 
VAXSROPRAND™ eeeeenee =X 
: 


03 


he 
AXASHP MARS 1 — 38) 
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ASHP-B_CNT 
ASHP~B_DELTA_PC 
ASHE ~B_ROUND~ = 
SHP~COPY_ SOURCE 
ASHP SHIFT_MASK 
ASHP” SHIF T_NEGATIVE 
ASHP~SHIFT-POSITIVE 
ASHP~S_ROURD 


SDO 
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ASHP~V_ROUND 
ASHP-W-DSTLEN 
CvTPS_6_DELTA_PC 
CVTPT_B_DELTA_PC 


CVTSP_B_DELTA_PC 
Shh DELTA “: 


DECI CHECK 0 
+39 preg Se ZEROS _ RO_R1 teeeereer§ = X 0 
DECIMAL_R 0 
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PACK_M_FPD 
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RMSK_DEC_OVF_T 
SUBP4"B_DELTA_PC 
SUBP6_B-DELTA_PC 
AB E 
VAKSABD PACKED_BYTE_R6_R7 


VAX 
VARSDECIRAL _ACCVIO 
VAXSDECIMA T 

VA HSDECIMAL- OVERFLOW 
VAXSEDITPC_OVERFLOW 
VAXSEXIT PERULATOR eeeeeeee xX 
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temo enreocecascor eee} 


! ; Psect synopsis H 


PSECT name Allocation PSECT No. Attributes 


. ABS . 9000008 00 ¢ -»> 00 ¢ 0.) NOPIC USR CON ABS LCL wOste NOE XE 
SABSS 900000 ( -» O1¢ #1.) NOPIC CON ABS LCL N EXE 
VAXSCODE 44 ( 580.) ¢ ¢:} PIC USR CON REL LCL SHR EXE 
PC_TABLE O88 1c § ) wel PIC USR CON REL LCL SHR NOEXE 
HANDLER_TABLE 1c ¢ 2 Ot &,) PIC USR CON REL LCL SHR NOEXE 


ere ec aoe neces een ee ese aoc est 


Phase Page faults CPU Time Elapsed Time 


Initialization 16 00 200 :00.08 0:00:02.51 
semnege processing $2 B: BBP et 3:98: tke 
Synbol table sort 200 3:0 8:5 0:00:01 .46 
Symbol table output 7 $300; 63 0:00:00.30 
Psect synopsis output 3 00:00:00.03 0:00:00.03 
Cross-reference output 00:00:00.00 00:00:00.00 
Assembler run totals 459 00:00:07.81 00:00:45.80 


they orking s set Limit was 1200 pages. 
S bytes (55 pages) of virtual memory were used to buffer the intermediate ggde. 
—- were 20 pages of symbol table space al tecates to hold 258 non-local and 37 local symbols. 
1145 source Lines were read in Pass 1, "sein de object records in Pass 2. 
30 pages of virtual memory were used to define 28 macros. 


Sewer c et ee sew ee mmm ne omnes + 


were we meee eee meee eee mew mene 


Macro Library name Macros defined 
“$255$DUA28: EMULAT.OBJJVAXMACROS.MLB; 1 19 
“$255$DUA28: SYSLIBISTARLET. MLB;2 6 

TOTALS (all Libraries) 25 

429 GETS were required to define 25 macros. 

There were no errors, warnings or information messages. 
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